0 X=40:REM IF YOU 1-MHZ-DISKDRIVE HANGEDUP X MUST BE 90 (NORMAL40)
2 IFN=0THENOPEN1,8,15,"M-W
"+CHR$(X)
4 IFN=0THENPRINT#1,"M-W"CHR$(106)+CHR$(0)+CHR$(1)+CHR$(200):CLOSE1
6 IFN=0THENN=1:LOAD"C100 C540",8,1
8 SYS49920:POKE53272,20
10 POKE53280,0:POKE53281,0:PRINT"[155][147][156]FREEWARE 1994 BY MAREK ROTH. MAIN MENU:[155]"
12 FORI=0TO28:POKE54272+I,0:NEXT
20 DIMA$(2,25)
30 READA$(0,A):READA$(1,A):READA$(2,A):A=A+1:IFA$(0,A-1)<>"QUIT"THEN30
40 FORI=0TOA-1:PRINT"[155]";:IFI=PEEK(53245)-1THENPRINT"";:L=I
45 IFPEEK(53247)>0THEN70
50 PRINTSPC(20-LEN(A$(0,I))/2);A$(0,I):NEXT
60 PRINT"[158]PROGRAMS WITH _ CAN YOU RUN FROM BASIC!
70 [158]49795
80 [139][194](53247)[178]0[167][153]"":[137]40
100 [151] 53269,0:[158]49792:[139]A$(0,L)[178]"QUIT"[167][158]64738
110 [159]1,8,7,""[170]A$(1,L)[170]"":[161]#1,Z$:MT[178]ST:[160]1:[139]MT[178]0[167]180
120 [153]"LOAD       INSERT "A$(2,L)" V2.3!
130 OPEN1,8,15,"M-R"+CHR$(28)+CHR$(0)+CHR$(1):GET#1,Z$:CLOSE1
140 IFZ$=""THEN130
150 FORI=0TO2000:NEXT
160 OPEN1,8,15,"I":INPUT#1,A:CLOSE1:IFA>0THEN150
170 GOTO110
180 RESTORE:SYS49856
200 POKE646,PEEK(53280)
210 PRINT"[147]L[207]"CHR$(34);A$(1,L);CHR$(34)",8
220 [153]"R(null)
230 POKE198,2:POKE631,13:POKE632,13:END
1000 DATA"LOAD CONSTRUCTION KIT_","DE LUXE KIT V2*","CONSTRUCTION KIT"
1010 DATA"EDIT TITLE WHERE YOU SELECT CAVES","TITELEDITOR V2*,S","LEVELPACKER"
1020 DATA"CREAT CAVEPACKS","CAVEPACKER V2*,S","LEVELPACKER"
1030 DATA"WRITE INTRO SCREEN","INTROSCREEN*,S","LEVELPACKER"
1040 DATA"MAKE BOULDER DASH GAME","LASTPACKER V2*,S","LEVELPACKER"
1050 DATA"SELECT LANGUAGE OF CONSTRUCTION KIT_","SELECT L. V2.3"
1052 DATA"CONSTRUCTION KIT"
1070 DATA"RESTART KIT WITH OLD LEVEL_","OLD CAVE V2*","CONSTRUCTION KIT"
1080 DATA"PACK FILES_","FINAL COMP*","CONSTRUCTION KIT"
1090 DATA"EDITOR V2.3 ANLEITUNG_","ANLEITUNG*[151]","CONSTRUCTION KIT"
1100 DATA"EDITOR V2.3 INSTRUCTION_","INSTRUCTION*[151]","CONSTRUCTION KIT"
1110 DATA"WIE SICH BOULDER DASH ENTWICKELT HAT_","GESCHICH*[151]","CONSTRUCTION KIT"
1120 DATA"MINENFELD SPIELEN_","MINENFELD","CONSTRUCTION KIT"
1130 DATA"MINENFELD ANLEITUNG_","ANLEITUNG MINEN*[154]","CONSTRUCTION KIT"
1140 DATA"WELCHE TITEL GEHEN EINE BESTIMMTE ZEIT_","CD-T*[151]","CONSTRUCTION KIT"
9990 DATA"QUIT"," "," "